Option Explicit
Sub D_Sample015()
    Range("A1").Delete Shift:=xlToLeft 			'xsR]NJsxs橹^
    Range("A1").Delete Shift:=xlUp 			'xsR]NJsxs橹W^
    Range("A1").EntireRow.Delete 			'CR
    Range("A1").EntireColumn.Delete  			'檺R
End Sub